APJNLHST
e = saletemp->prod_code	
	do chngcus
	do chngcd
	invcapt.etname9.value = invcapt.etname16.value * salepr1->sell_price	
return
procedure chngord
	orderno=this.value
	replace second_ref with orderno
return
procedure chngdate
	inv_date = this.value
	replace date with inv_date
return
procedure doctotal
	sele saletemp
*	recpos = recno()
	sum saletemp->amount to totdoc
	invcapt.ETNAME10.value = totdoc
	go top
return
procedure batchtot
ACT_CODE
SUB_CODE
CB_CODE
COMMENTS
SECOND_REF
doctotal
	do batchtot
	set filter to first_ref ==invno
*	go top
return
procedure prtbat1
	sele saletemp
	set filter to
	set order to first_ref
	do related
	sele saletemp
*	lvoid = invcapt.detail.release()
	do prtbtch with "[ Invoice/Credit Note Batch List ]","prtbatc3"
	sele customer
	set relation to
	sele salepr1
	set relation to
	sele saletemp
	set relation to
	set fields to
	set filter to first_ref == invno
	do formopen
	lvoid = invcapt.FIRST_R002.setfocus()
	invcapt.FIRST_R002.value = invno
return
procedure chngqty
	invcapt.etname9.value = this.value * salepr1->sell_price
	replace amount with invcapt.etname9.value,;
	cost_amount with qty * cost
	lvoid = invcapt.submit()
return
procedure chngqty1
	invcapt.etname9.value = invcapt.etname16.value * salepr1->sell_price
	replace amount with invcapt.etname9.value,;
	cost_amount with qty * cost
*	lvoid = invcapt.submit()
*	lvoid = invcapt.detail.refreshrecord()
	lvoid = invcapt.refresh()
return
procedure related
* set up relations to print invoice batch listing
sele customer
set order to sub_code
sele salepr1
set order to prod_code
sele saletemp
set relation to sub_code into customer,prod_code into salepr1
set fields to saletemp->first_ref,saletemp->second_ref,;
	saletemp->sub_code,saletemp->prod_code,saletemp->qty
ACT_CODE
ACT_CODE
SUB_CODE
SUB_CODE
CB_CODE
CB_CODE
COMMENTS
COMMENTS
SECOND_REF
SECOND_REF